home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 November / CHIP Kasım 1997.iso / ARACLAR / TER500 / 500TER._XE / SCRIPT.EXE / TIMER.TSL < prev   
Encoding:
Text File  |  1995-08-07  |  864 b   |  29 lines
  1.  
  2. % -----------------------------------------------------------------------------
  3. % Timer demonstration                                  *TERMINATE PRESCRIPTION*
  4. % -----------------------------------------------------------------------------
  5. %
  6. %  Version          : 1.00
  7. %  Filename         : TIMER.TSL
  8. %  Company          : SerWiz Comm
  9. %  Programmer       : The Serial Wizard
  10. %  Module created   : 06 Aug 1995
  11. %  Latest revision  : 06 Aug 1995
  12. %  Language/version : Terminate Prescription 1.00
  13. %  Remarks          : Resets, show elapsed, and check if timer is expired
  14. %
  15. % -----------------------------------------------------------------------------
  16.  
  17. ClearScreen
  18. WriteAStr 1,1,3,"Timer demonstration, counting to 5 seconds"
  19. SetAttr 11
  20.  
  21. ResetTimer 1,5
  22. Repeat
  23.   GotoXY 50,1
  24.   Print TimeElapsed(1)
  25. Until TimerExpired(1)=1
  26.  
  27. Set Key=GetKey
  28.  
  29.